                com1.Write("ATDT 555-0100" & vbCrLf)